      MODULE employv2kp_u2
      USE employv2kp_u1
      CONTAINS
      SUBROUTINE SSCTU(MMNST,SSZ,CSNO,
     *  DUCMEM,UCMEM,ERRMES)
      INTEGER CSNO,MMNST,SSZ(MMNST)
      INTEGER DUCMEM
      REAL UCMEM(DUCMEM)
      CHARACTER*(*) ERRMES
      CHARACTER*10 SUBNAM
      PARAMETER(SUBNAM='SSCTU')
      IF(CSNO.EQ.3) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  U00003,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.4) THEN
       CALL GPEQR7(SSZ(3),1,1,1,1,1,1,
     *  U00004,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.5) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  U00005,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.6) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  U00006,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.7) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  U00007,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.8) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  U00008,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.10) THEN
       CALL GPEQR7(SSZ(2),SSZ(1),1,1,1,1,1,
     *  U00010,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.11) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  U00011,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.13) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  U00013,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.14) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  U00014,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.15) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  U00015,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.16) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  U00016,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.18) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  U00018,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.19) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  U00019,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.20) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  U00020,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.21) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  U00021,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.22) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  U00022,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.23) THEN
       CALL GPEQR7(SSZ(1),SSZ(2),1,1,1,1,1,
     *  U00023,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.24) THEN
       CALL GPEQR7(SSZ(2),SSZ(1),1,1,1,1,1,
     *  U00024,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.25) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  U00025,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.26) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  U00026,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.28) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  U00028,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.29) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  U00029,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.33) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  U00033,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.34) THEN
       CALL GPEQR7(SSZ(1),1,1,1,1,1,1,
     *  U00034,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.35) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  U00035,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.36) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  U00036,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.37) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  U00037,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.38) THEN
       CALL GPEQR7(SSZ(3),SSZ(1),1,1,1,1,1,
     *  U00038,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.42) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  U00042,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.43) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  U00043,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.44) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  U00044,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.47) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  U00047,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.48) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  U00048,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.49) THEN
       CALL GPEQR7(SSZ(2),1,1,1,1,1,1,
     *  U00049,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.50) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  U00050,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.51) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  U00051,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.52) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  U00052,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.53) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  U00053,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.54) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  U00054,UCMEM,ERRMES)
      ELSE IF(CSNO.EQ.55) THEN
       CALL GPEQR7(1,1,1,1,1,1,1,
     *  U00055,UCMEM,ERRMES)
      ELSE
       ERRMES='E-Unexpected CSNO'
       GOTO 15500
      END IF
      IF(ERRMES(1:1).EQ.'E') GOTO 15000
      RETURN
15000 CONTINUE
      CALL PERET(SUBNAM)
      RETURN
15500 CONTINUE
      CALL PERETM(SUBNAM,ERRMES)
      RETURN
      END SUBROUTINE SSCTU
      END MODULE employv2kp_u2
